home *** CD-ROM | disk | FTP | other *** search
/ AmigActive 21 / AACD 21.iso / AACD / Programming / amigatalk / general / Integer.st < prev    next >
Encoding:
Text File  |  2000-05-20  |  3.0 KB  |  135 lines
  1. Class Integer :Number
  2. [
  3.    = aNumber
  4.       ^ <primitive 6 self aNumber>
  5.          ifTrue:  [ <primitive 16 self aNumber> ]
  6.          ifFalse: [ super = aNumber ]
  7. |
  8.    > aNumber
  9.       ^ <primitive 6 self aNumber>
  10.          ifTrue:  [ <primitive 13 self aNumber> ]
  11.          ifFalse: [ super > aNumber ]
  12. |
  13.    < aNumber
  14.       ^ <primitive 6 self aNumber>
  15.          ifTrue:  [ <primitive 12 self aNumber> ]
  16.          ifFalse: [ super < aNumber ]
  17. |
  18.    + aNumber
  19.       ^ <primitive 6 self aNumber>
  20.          ifTrue:  [ <primitive 10 self aNumber> ]
  21.          ifFalse: [ super + aNumber ]
  22. |
  23.    - aNumber
  24.       ^ <primitive 6 self aNumber>
  25.          ifTrue:  [<primitive 11 self aNumber>]
  26.          ifFalse: [ super - aNumber ]
  27. |
  28.    * aNumber
  29.       ^ <primitive 6 self aNumber>
  30.          ifTrue:  [<primitive 18 self aNumber>]
  31.          ifFalse: [ super * aNumber ]
  32. |
  33.    / aNumber
  34.       ^ self asFloat / aNumber
  35. |
  36.    allMask: anInteger
  37.       ^ anInteger = <primitive 23 self anInteger>
  38. |
  39.    anyMask: anInteger
  40.       ^ 0 ~= <primitive 23 self anInteger>
  41. |
  42.    asCharacter
  43.       ^ <primitive 36 self>
  44. |
  45.    asFloat
  46.       ^ <primitive 39 self >
  47. |
  48.    asString
  49.       ^ <primitive 37 self>
  50. |
  51.    bitAnd: anInteger
  52.       ^ <primitive 23 self anInteger>
  53. |
  54.    bitAt: anInteger
  55.       ^ <primitive 21 self anInteger>
  56. |
  57.    bitInvert
  58.       ^ <primitive 33 self>
  59. |
  60.    bitOr: anInteger
  61.       ^ <primitive 22 self anInteger>
  62. |
  63.    bitShift: anInteger
  64.       ^ <primitive 25 self anInteger>
  65. |
  66.    bitXor: anInteger
  67.       ^ <primitive 24 self anInteger>
  68. |
  69.    even
  70.       ^ (self rem: 2) = 0
  71. |
  72.    factorial
  73.       ^ <primitive 38 self>
  74. |
  75.    gcd: anInteger
  76.       ^ <primitive 6 self anInteger>
  77.          ifTrue:  [<primitive 20 self anInteger>]
  78.          ifFalse: [self opError]
  79. |
  80.    highBit
  81.       ^ <primitive 34 self>
  82. |
  83.    lcm: anInteger
  84.       ^ <primitive 6 self anInteger>
  85.          ifTrue:  [self * anInteger quo: (self gcd: anInteger)]
  86.          ifFalse: [self opError]
  87. |
  88.    noMask: anInteger
  89.       ^ 0 = (self bitAnd: anInteger)
  90. |
  91.    odd
  92.       ^ (self rem: 2) ~= 0
  93. |
  94.    quo: anInteger
  95.       ^ <primitive 6 self anInteger>
  96.          ifTrue:  [<primitive 28 self anInteger>]
  97.          ifFalse: [self opError]
  98. |
  99.    // aNumber                        "see quo also"
  100.       ^ <primitive 6 self aNumber>
  101.          ifTrue:  [<primitive 19 self aNumber>]
  102.          ifFalse: [self opError]
  103. |
  104.    radix: aNumber
  105.       ^ <primitive 26 self aNumber>
  106. |
  107.    asHex
  108.       ^ <primitive 26 self 16>
  109. |
  110.    asBinary
  111.       ^ <primitive 26 self 2>
  112. |
  113.    asOctal
  114.       ^ <primitive 26 self 8>
  115. |
  116.    rem: anInteger
  117.       ^ <primitive 6 self anInteger>
  118.          ifTrue:  [<primitive 29 self anInteger>]
  119.          ifFalse: [self opError]
  120. |
  121.    intNegRem: aNumber ! i !
  122.       ^ <primitive 6 self aNumber>  "Used to be '\\', not intNegRem:"
  123.          ifTrue:  [i <- self * ( (self < 0)
  124.                                   ifTrue: [ -1 ] 
  125.                                  ifFalse: [  1 ] ).
  126.            
  127.                    i rem: aNumber]
  128.  
  129.         ifFalse:  [self opError]
  130. |
  131.    timesRepeat: aBlock ! i !
  132.       i <- 0.
  133.       [i < self] whileTrue: [aBlock value. i <- i + 1]
  134. ]
  135.